home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 May
/
64er_Magazin_93-05_1993_Markt__Technik_de_Side_B.d64
/
auto in basic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
318b
|
11 lines
0 input"erste nummer";a
1 input"schrittweite";w
2 sys58692:poke830,w:ifa<10orw=0ora>63999thenrun
3 poke828,a/256:poke829,a-peek(828)*256:printa;:poke204,0
4 geta$:ifa$=""then4
5 poke205,2:wait207,1,1:poke204,1:printa$;
6 ifa$<>chr$(13)then4
7 print"run 9":fori=631to634:pokei,145:next
8 poke198,6:poke635,13:poke636,13:end
9 print"[145] ":print" [145][145][145]":a=peek(828)*256+peek(829)+peek(830):goto3